home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 063 - Wasteland Side 1.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2019-02-17  |  795b  |  7 lines
  1. 1  CALL 48888: PRINT  CHR$(27); CHR$(17): TEXT : HOME :D$ =  CHR$(4):NP% = 50:I = 768: POKE I,169: POKE I +1,NP%: POKE I +2,32: POKE I +3,245: POKE I +4,190: POKE I +5,96: CALL I:ID =  PEEK(49048): POKE 768,0: IF ID >127  THEN  POKE 768,1
  2. 2  PRINT D$;"BLOAD MOVEBOX.0":PG = 154 -NP%:AD = PG *256: POKE 769,173: IF ID > = 128  THEN  POKE 769,254
  3. 3 P$ = "^": FOR I = 1 TO 40: PRINT P$;: NEXT : VTAB 23: HTAB 1: FOR I = 1 TO 40: PRINT P$;: NEXT 
  4. 4 V = 5:H = 15:I$ = "WILLWRITER": GOSUB 7:V = 9:H = 8:I$ = "PUBLISHED BY: NOLO PRESS": GOSUB 7:V = 15:I$ = "(C) 1985 BY LEGISOFT INC.": GOSUB 7: VTAB 20: HTAB 15: PRINT "PLEASE WAIT"
  5. 5  PRINT D$"OPENWD": PRINT D$"READWD": INPUT FI%: PRINT D$"CLOSEWD": IF FI% > = 0  THEN  PRINT D$" RUN MAIN"
  6. 6  PRINT D$;"RUN INTRO"
  7. 7  VTAB V: HTAB H: PRINT I$: RETURN